From: Julien Danjou Date: Sun, 6 Feb 2011 12:48:19 +0000 (+0000) Subject: message.el (message-setup-1): Handle message-generate-headers-first set to t. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4900 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=93c34e0ca49d0d93a3aa3d0120e3262d36457dbb;p=emacs.git message.el (message-setup-1): Handle message-generate-headers-first set to t. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 62dd01d4330..7f89c80cf47 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-02-06 Julien Danjou + + * message.el (message-setup-1): Handle message-generate-headers-first + set to t. + 2011-02-04 Lars Ingebrigtsen * message.el (message-setup-1): Remove the read-only stuff, since it diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 37d64bc5f1b..3ba57caba4f 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -6417,7 +6417,9 @@ are not included." ;; `References:' header if `message-generate-headers-first' was nil. ;; Therefore, always generate it first. (let ((message-generate-headers-first - (append message-generate-headers-first '(References)))) + (if (eq message-generate-headers-first t) + t + (append message-generate-headers-first '(References))))) (when (message-news-p) (when message-default-news-headers (insert message-default-news-headers)